home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh45a.d64
/
listing 19
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
450b
|
27 lines
10 PRINTCHR$(147):POKE 53280,5:POKE 53281,6
20 V=53248:POKE V+34,3
30 POKE 53269,4:POKE 2042,13
40 FOR N=0 TO 62:READ Q:POKE 832+N,Q:NEXT
100 DATA 255,255,255
101 DATA 128,0,1
102 DATA 128,0,1
103 DATA 128,0,1
104 DATA 144,0,1
105 DATA 144,0,1
106 DATA 144,0,1
107 DATA 144,0,1
108 DATA 144,0,1
109 DATA 144,0,1
110 DATA 144,0,1
111 DATA 144,0,1
112 DATA 144,0,1
113 DATA 144,0,1
114 DATA 128,0,1
115 DATA 128,0,1
116 DATA 128,0,1
117 DATA 128,0,1
118 DATA 128,0,1
119 DATA 128,0,1
120 DATA 255,255,255
200 X=200:Y=100:POKE 53252,X:POKE 53253,Y